home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / e_to_l / formsize / testfrm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.8 KB  |  75 lines
  1. unit Testfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, FormSize, StdCtrls, Buttons, Mask;
  8.  
  9. type
  10.   TMainForm = class(TFormSizer)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     MaskEdit1: TMaskEdit;
  16.     MaskEdit2: TMaskEdit;
  17.     MaskEdit3: TMaskEdit;
  18.     MaskEdit4: TMaskEdit;
  19.     BitBtn1: TBitBtn;
  20.     BitBtn2: TBitBtn;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure BitBtn1Click(Sender: TObject);
  23.     procedure BitBtn2Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     procedure SaveValues;
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   MainForm: TMainForm;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TMainForm.FormCreate(Sender: TObject);
  39. begin
  40.    MaxWidth:=320;       {Max Width Allowed}
  41.    MaxHeight:=250;      {Max Height Allowed}
  42.    MinWidth:=100;        {Min Width Allowed}
  43.    MinHeight:=100;       {Min Height Allowed}
  44.    SaveValues;
  45. end;
  46.  
  47. procedure TMainForm.BitBtn1Click(Sender: TObject);
  48. begin
  49.    MinWidth:=StrToIntDef(MaskEdit1.Text, 100);
  50.    MinHeight:=StrToIntDef(MaskEdit2.Text, 100);
  51.    MaxWidth:=StrToIntDef(MaskEdit3.Text, 100);
  52.    MaxHeight:=StrToIntDef(MaskEdit4.Text, 100);
  53.    if MaxWidth<100 then MaxWidth:=100;
  54.    if MaxHeight<100 then MaxHeight:=100;
  55.    if MinWidth>MaxWidth then MinWidth:=MaxWidth;
  56.    if MinHeight>MaxHeight then MinHeight:=MaxHeight;
  57.    SaveValues;
  58. end;
  59.  
  60. procedure TMainForm.SaveValues;
  61. begin
  62.    MaskEdit1.Text:=IntToStr(MinWidth);
  63.    MaskEdit2.Text:=IntToStr(MinHeight);
  64.    MaskEdit3.Text:=IntToStr(MaxWidth);
  65.    MaskEdit4.Text:=IntToStr(MaxHeight);
  66. end;
  67.  
  68. procedure TMainForm.BitBtn2Click(Sender: TObject);
  69. begin
  70.    RestoreSize;
  71.    SaveValues;
  72. end;
  73.  
  74. end.
  75.